home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIDemos.lzh / RSI_Cebit90.lha / Install < prev    next >
Text File  |  1980-01-12  |  3KB  |  156 lines
  1. ;****************************
  2. (set #readme-file "ReadMe")     ;name of readme file
  3. ;****************************
  4. ;----------------------------
  5. ; checks if given program is installed, if not abort install
  6. ; #program - to check
  7.  
  8. (procedure P_ChkRun
  9.   (if
  10.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  11.     ("")
  12.     (abort
  13.       (cat
  14.     "You must install \"" #program "\" first!\n"
  15.     "It must be accessible via the path.\n"
  16.     "You can find it in the WHDLoad package."
  17.       )
  18.     )
  19.   )
  20. )
  21.  
  22. (procedure P_ChkRun_XFD
  23.   (if
  24.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  25.     ("")
  26.     (abort
  27.       (cat
  28.     "You must install \"" #program "\" first!\n"
  29.     "It must be accessible via the path.\n"
  30.     "You can find it in the XFD package."
  31.       )
  32.     )
  33.   )
  34. )
  35.  
  36. (procedure P_ChkRun_UNADF
  37.   (if
  38.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  39.     ("")
  40.     (abort
  41.       (cat
  42.     "You must install \"" #program "\" first!\n"
  43.     "It must be accessible via the path.\n"
  44.     "You can find it in the UNADF package."
  45.       )
  46.     )
  47.   )
  48. )
  49. ;----------------------------
  50. ; Wait for inserting disk
  51. ; IN:  #AD_disk - name of disk
  52. ; OUT: -
  53.  
  54. (procedure P_disk
  55.     (message ("Ensure the file CEBIT90.adf is available in RAM:"))
  56. )
  57.  
  58. ;****************************
  59.  
  60. (if
  61.   (exists #readme-file)
  62.   (if
  63.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  64.     ("")
  65.     (run ("SYS:Utilities/More %s" #readme-file))
  66.   )
  67. )
  68.  
  69. (set #program "WHDLoad")
  70. (P_ChkRun)
  71.  
  72. (set #program "xfddecrunch")
  73. (P_ChkRun_XFD)
  74.  
  75. (set #program "UNadf")
  76. (P_ChkRun_UNADF)
  77.  
  78. (set @default-dest
  79.   (askdir
  80.     (prompt ("Where should \"%s\" be installed?\nA drawer \"%s\" will be automatically created." @app-name @app-name))
  81.     (help @askdir-help)
  82.     (default @default-dest)
  83.     (disk)
  84.   )
  85. )
  86. (set #dest (tackon @default-dest @app-name))
  87. (if
  88.   (exists #dest)
  89.   (
  90.     (set #choice
  91.       (askbool
  92.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted?" #dest))
  93.         (default 1)
  94.         (choices "Delete" "Skip")
  95.         (help @askbool-help)
  96.       )
  97.     )
  98.     (if
  99.       (= #choice 1)
  100.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  101.     )
  102.   )
  103. )
  104. (makedir #dest
  105.   (help @makedir-help)
  106.   (infos)
  107. )
  108.  
  109. ;----------------------------
  110.  
  111. (copyfiles
  112.   (help @copyfiles-help)
  113.   (source ("CEBIT90.Slave"))
  114.   (dest #dest)
  115. )
  116. (copyfiles
  117.   (help @copyfiles-help)
  118.   (source ("proreplay.bin"))
  119.   (dest #dest)
  120. )
  121. (copyfiles
  122.   (help @copyfiles-help)
  123.   (source ("CEBIT90.info"))
  124.   (dest #dest)
  125. )
  126. (if
  127.   (exists #readme-file)
  128.   (copyfiles
  129.     (help @copyfiles-help)
  130.     (source #readme-file)
  131.     (dest #dest)
  132.   )
  133. )
  134. (if
  135.   (exists ("Readme.info"))
  136.   (copyfiles
  137.     (help @copyfiles-help)
  138.     (source ("Readme.info"))
  139.     (dest #dest)
  140.   )
  141. )
  142.  
  143. ;----------------------------
  144.  
  145.  
  146. (P_disk)
  147.   (run ("UNadf RAM:CEBIT90.adf DEST=RAM: >CON:///1000//CLOSE"s))
  148. (copyfiles
  149.   (help @copyfiles-help)
  150.   (source ("RAM:cebit `90/rsi-cebit'90.exe"))
  151.   (dest #dest)
  152. )
  153. ;----------------------------
  154. (run ("Delete RAM:CEBIT90.adf ALL QUIET FORCE"))
  155. (exit)
  156.